Private Sub WorkBook_Open()
Sheets("Menu").ScrollArea = "A1:O27"
Sheets("D").ScrollArea = "A1:K25"
Sheets("I").ScrollArea = "A1:K25"
Sheets("E").ScrollArea = "A1:K25"
Sheets("ND").ScrollArea = "A1:K25"
Sheets("NC").ScrollArea = "A1:K25"
Call ocultaCinta

End Sub
